Visual Basic Toolbox/Visual Basic Toolbox (P.I.E.)(1996).ISO/pgm_ctrl/cuactrls/cbook.frm

Text File | 1995-05-22 | 10KB | 307 lines

VERSION 2.00
Begin Form frmBook
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   3  'Fixed Double
   Caption         =   "Notebook demo"
   ClientHeight    =   5400
   ClientLeft      =   1305
   ClientTop       =   1545
   ClientWidth     =   6165
   Height          =   5805
   Icon            =   0
   Left            =   1245
   LinkTopic       =   "Form1"
   ScaleHeight     =   5400
   ScaleWidth      =   6165
   Top             =   1200
   Width           =   6285
   Begin CUACommand cmd5
      Caption         =   "Help"
      Height          =   345
      Left            =   3975
      TabIndex        =   4
      Top             =   4920
      Width           =   1155
   End
   Begin CUACommand cmd4
      Cancel          =   -1  'True
      Caption         =   "Cancel"
      Height          =   345
      Left            =   2700
      TabIndex        =   3
      Top             =   4920
      Width           =   1155
   End
   Begin CUACommand cmd2
      Caption         =   "&Save"
      Enabled         =   0   'False
      Height          =   345
      Left            =   1395
      TabIndex        =   2
      Top             =   4920
      Width           =   1155
   End
   Begin CUACommand cmd1
      Caption         =   "OK"
      Default         =   -1  'True
      Height          =   345
      Left            =   120
      TabIndex        =   1
      Top             =   4920
      Width           =   1155
   End
   Begin CUABook bok1
      BackColor       =   &H00FFFFFF&
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   4845
      Left            =   30
      PageCount       =   7
      Stacked         =   -1  'True
      TabCaption      =   CBOOK.FRX:0000
      TabIndex        =   0
      Top             =   15
      Width           =   6075
      Begin CUAStatus Page5
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         Height          =   4605
         Left            =   240
         TabIndex        =   18
         Top             =   30
         Visible         =   0   'False
         Width           =   4335
      End
      Begin CUAStatus Page6
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         Height          =   4605
         Left            =   240
         TabIndex        =   10
         Top             =   30
         Visible         =   0   'False
         Width           =   4335
      End
      Begin CUAStatus Page4
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         Height          =   4605
         Left            =   240
         TabIndex        =   9
         Top             =   30
         Visible         =   0   'False
         Width           =   4335
      End
      Begin CUAStatus Page3
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         Height          =   4605
         Left            =   240
         TabIndex        =   8
         Top             =   30
         Visible         =   0   'False
         Width           =   4335
      End
      Begin CUAStatus Page2
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         Height          =   4605
         Left            =   240
         TabIndex        =   7
         Top             =   30
         Visible         =   0   'False
         Width           =   4335
         Begin CUALabel lbl4
            Caption         =   "3. If necessary, adjust page colors and borders."
            FontBold        =   0   'False
            FontItalic      =   0   'False
            FontName        =   "MS Sans Serif"
            FontSize        =   8.25
            FontStrikethru  =   0   'False
            FontUnderline   =   0   'False
            Height          =   255
            Index           =   2
            Left            =   225
            TabIndex        =   20
            Top             =   1860
            Width           =   3795
            WordWrap        =   -1  'True
         End
         Begin CUALabel lbl3
            Caption         =   "Do this:"
            FontBold        =   0   'False
            FontItalic      =   0   'False
            FontName        =   "MS Sans Serif"
            FontSize        =   8.25
            FontStrikethru  =   0   'False
            FontUnderline   =   -1  'True
            Height          =   195
            Left            =   1800
            TabIndex        =   19
            Top             =   315
            Width           =   825
         End
         Begin CUALabel lbl4
            Caption         =   "1. Set number of tabs using 'TabCount', 7 here."
            FontBold        =   0   'False
            FontItalic      =   0   'False
            FontName        =   "MS Sans Serif"
            FontSize        =   8.25
            FontStrikethru  =   0   'False
            FontUnderline   =   0   'False
            Height          =   225
            Index           =   0
            Left            =   225
            TabIndex        =   15
            Top             =   945
            Width           =   3795
         End
         Begin CUALabel lbl4
            Caption         =   "2. Put equally many 'CUAStatus' within the notebook, as pages. Give these the name 'Page' + pagenumber."
            FontBold        =   0   'False
            FontItalic      =   0   'False
            FontName        =   "MS Sans Serif"
            FontSize        =   8.25
            FontStrikethru  =   0   'False
            FontUnderline   =   0   'False
            Height          =   435
            Index           =   1
            Left            =   225
            TabIndex        =   16
            Top             =   1290
            Width           =   4020
         End
         Begin CUALabel lbl4
            Caption         =   "4. Fill the pages (Page1, Page2) with components, turn page with right mouse button in design mode."
            FontBold        =   0   'False
            FontItalic      =   0   'False
            FontName        =   "MS Sans Serif"
            FontSize        =   8.25
            FontStrikethru  =   0   'False
            FontUnderline   =   0   'False
            Height          =   420
            Index           =   7
            Left            =   225
            TabIndex        =   17
            Top             =   2220
            Width           =   3990
            WordWrap        =   -1  'True
         End
      End
      Begin CUAStatus Page1
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         Height          =   4605
         Left            =   240
         TabIndex        =   5
         Top             =   30
         Visible         =   0   'False
         Width           =   4335
         Begin CUACheck chk1
            Caption         =   "Spiral"
            Height          =   300
            Left            =   60
            TabIndex        =   12
            Top             =   4260
            Width           =   1215
         End
         Begin CUALabel lbl1
            Caption         =   "Now it's here for Windows, and YOU can use it in your own application with CUA/Controls!"
            FontBold        =   0   'False
            FontItalic      =   0   'False
            FontName        =   "MS Sans Serif"
            FontSize        =   8.25
            FontStrikethru  =   0   'False
            FontUnderline   =   0   'False
            Height          =   435
            Index           =   1
            Left            =   285
            TabIndex        =   14
            Top             =   1320
            Width           =   3630
         End
         Begin CUALabel lbl1
            Caption         =   "Note books are frequently used components in OS/2. Because it looks much like a real life notebook, it's easy to use and has quickly become very popular."
            FontBold        =   0   'False
            FontItalic      =   0   'False
            FontName        =   "MS Sans Serif"
            FontSize        =   8.25
            FontStrikethru  =   0   'False
            FontUnderline   =   0   'False
            Height          =   825
            Index           =   0
            Left            =   300
            TabIndex        =   13
            Top             =   360
            Width           =   3630
         End
      End
      Begin CUAStatus sts7
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         Height          =   4605
         Left            =   240
         TabIndex        =   11
         Top             =   30
         Visible         =   0   'False
         Width           =   4335
      End
   End
   Begin CUALabel lblDrag
      Caption         =   "lbl1"
      Height          =   195
      Left            =   4770
      TabIndex        =   6
      Top             =   5235
      Visible         =   0   'False
      Width           =   315
   End
End
Option Explicit

Sub bok1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
   Call dragMouseDown(Button, Shift, X, Y)
End Sub

Sub bok1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
   Call dragMouseMove(lblDrag, Button, Shift, X, Y)
End Sub

Sub bok1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
   Call dragMouseUp(Button, Shift, X, Y)
End Sub

Sub chk1_Click ()
   bok1.Spiral = (chk1.Value <> 0)
End Sub

Sub cmd1_Click ()
   Unload Me
End Sub

Sub cmd4_Click ()
   Unload Me
End Sub

Sub Form_DragDrop (Source As Control, X As Single, Y As Single)
   Call RejectDrop(0)
End Sub

Sub Form_DragOver (Source As Control, X As Single, Y As Single, State As Integer)
   Call dragDragOver(Source, Me, X, Y, State)
End Sub

Sub Form_Load ()
   Me.Icon = frmMain.Icon
   Me.Tag = BOKW
End Sub

Sub Form_Resize ()
   bok1.Move 0, 0, ScaleWidth, ScaleHeight - 600
End Sub